﻿Public Class objectsCompany
    Dim Var As varDeclare
    Dim _companyName As String
    Dim _companyAddress As String
    Dim _companyPhone As String
    Dim _companyNPWP As String



    Public Sub New(CompanyName As String, CompanyAddress As String, CompanyPhone As String, CompanyNPWP As String)
        _companyName = CompanyName
        _companyAddress = CompanyAddress
        _companyPhone = CompanyPhone
        _companyNPWP = CompanyNPWP
    End Sub

    Public Property CompanyName() As String
        Get
            Return _companyName
        End Get
        Set(ByVal value As String)
            _companyName = value
        End Set
    End Property

    Public Property CompanyAddress() As String
        Get
            Return _companyAddress
        End Get
        Set(ByVal value As String)
            _companyAddress = value
        End Set
    End Property

    Public Property CompanyPhone() As String
        Get
            Return _companyPhone
        End Get
        Set(ByVal value As String)
            _companyPhone = value
        End Set
    End Property

    Public Property CompanyNPWP() As String
        Get
            Return _companyNPWP
        End Get
        Set(ByVal value As String)
            _companyNPWP = value
        End Set
    End Property

End Class

Public Class company
    Public Function SetDetail() As IEnumerable(Of objectsCompany)
        Return New objectsCompany() {New objectsCompany("PT. UNICER INDOASIA", "Jl. Putera II Blok A, Industrial Estate" + vbNewLine + "Pasar Kemis - 15560, Tangerang - Indonesia" + vbNewLine + "Telephone : 5900181 Fax : 5900180" + vbNewLine + "Email : customerservice@smalticeram.co.id", "5900181", "0000")}
    End Function
End Class
